home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / Foxpro 2.06 Win / CUSTINV.FP_ / CUSTINV.bin
Text File  |  1994-03-11  |  2KB  |  75 lines
  1.  
  2. * WIZNAME = WZ_BQUER
  3. * VERSION = .82
  4. * TIMESTAMP = 476774400.0000
  5. * CLIENTSERVER =
  6. * TABLES = C:\FPWBETA2\SAMPLE\CATALOG\CUSTOMER.DBF;C:\FPWBETA2\SAMPLE\CATALOG\INVOICES.DBF
  7. * JOINS = Invoices;Cno;Customer;Cno;0
  8. * FIELDS = Customer.company;Customer.contact;Customer.city;Invoices.ino;Invoices.itotal
  9. * SORT FIELDS = Customer.company
  10. * GROUP = 
  11. * SQL = SQL Select statement for Mailmerge Wizard:
  12. *SELECT Customer.company,Customer.contact,Customer.city,Invoices.ino,Invoices.itotal ;
  13. *    FROM C:\FPWBETA2\SAMPLE\CATALOG\CUSTOMER.DBF,C:\FPWBETA2\SAMPLE\CATALOG\INVOICES.DBF;
  14. *    WHERE Customer.Cno = Invoices.Cno;
  15. *    ORDER BY Customer.company;
  16. *    INTO CURSOR Query
  17. IF !USED("Customer")
  18.     SELECT 0
  19.     USE (LOCFILE("C:\FPWBETA2\SAMPLE\CATALOG\CUSTOMER.DBF","DBF","Where is Customer.DBF ?")) AGAIN ALIAS Customer
  20. ELSE
  21.     SELECT Customer
  22.     SET RELATION TO
  23.     SET SKIP TO
  24.     SET ORDER TO
  25.     SET FILTER TO
  26. ENDIF
  27. IF !USED("Invoices")
  28.     SELECT 0
  29.     USE (LOCFILE("C:\FPWBETA2\SAMPLE\CATALOG\INVOICES.DBF","DBF","Where is Invoices.DBF ?")) AGAIN ALIAS Invoices
  30. ELSE
  31.     SELECT Invoices
  32.     SET RELATION TO
  33.     SET SKIP TO
  34.     SET ORDER TO
  35.     SET FILTER TO
  36. ENDIF
  37. SELECT Invoices
  38. m.i=1
  39. DO WHILE !EMPTY(KEY(m.i))
  40.     IF KEY(m.i)="CNO"
  41.         SET ORDER TO m.i
  42.         EXIT
  43.     ENDIF
  44.     m.i=m.i+1
  45. ENDDO
  46. IF EMPTY(SET("ORDER"))
  47.     IF SYS(2011)#"Exclusive"
  48.         USE DBF(ALIAS()) EXCLUSIVE AGAIN ALIAS (ALIAS())
  49.     ENDIF
  50.     INDEX ON Cno TAG Cno &&Cno
  51. ENDIF
  52. SELECT Customer    &&Parent Area
  53. SET RELATION TO Cno INTO Invoices ADDITIVE
  54. SET FILTER TO FOUND("Invoices")
  55. SELECT Customer
  56. SET SKIP TO Invoices
  57. *Sort order
  58. m.i=1
  59. DO WHILE !EMPTY(KEY(m.i))
  60.     IF KEY(m.i)="UPPER(COMPANY)" OR KEY(m.i)="COMPANY"
  61.         SET ORDER TO m.i ASCENDING
  62.         EXIT
  63.     ENDIF
  64.     m.i=m.i+1
  65. ENDDO
  66. IF EMPTY(SET("ORDER"))
  67.     IF SYS(2011)#"Exclusive"
  68.         USE DBF(ALIAS()) EXCLUSIVE AGAIN ALIAS (ALIAS())
  69.     ENDIF
  70.     INDEX ON UPPER(company) TAG company
  71. ENDIF
  72. LOCATE
  73. SET FIELDS GLOBAL
  74. SET FIELDS TO
  75. SET FIELDS TO Customer.company,Customer.contact,Customer.city,Invoices.ino,Invoices.itotal